5 POKE53281,.:POKE53280,.:POKE646,13
10 PRINT"[147]RECHENTRAINER
15 [153]"ZUR AUSWAHL STEHEN
20 PRINT"DIE 4 GRUNDOPERATIONEN
25 [153]"          +  -  X  /
30 PRINT"IN 4 SCHWIERIGKEITSSTUFEN [146]1,2,3,4
35 [153]"DRUECKE
40 PRINT"OPERATION,SCHWIERIGKEITSGRAD (RETURN)
45 [133] A$,B$:TI$[178]"000000"
50 [139] B$[178]"1"[167]K[178]50:L[178]40:[137]75
55 [139] B$[178]"2"[167]K[178]100:L[178]90:[137]75
60 [139] B$[178]"3"[167] K[178]200:L[178]150:[137]75
65 [139] B$[178]"4"[167] K[178]300:L[178]250:[137]75
70 K[178]1000:L[178]1000
75 [141]6000
85 [139] A$[178]"-"[167]2000
90 [139] A$[178]"X"[167] 3000
95 [139] A$[178]"/"[167] 4000
100 [139] A$[178]""[167][153]"OPERATION?":[133]A$:[137]85
110 [139] B$[178]""[167][153]"SCHWIERIGKEITSGRAD?":[133]B$:[137]50
1000 [143]
1050 R[178][181](A):S[178][181](B):T[178]R[170]S
1060 [153]"LOAD"R  "+"  S  "=  "
1070 [153]"ON"[163]25):[133]C:[139] C[179][177]T [167] [137] 10000
1080 G[178]G[170]1:[141]6000
1083 [139] G[178]20[167]8000
1085 [137]1050
1090 [128]
2000 R[178][181](A):S[178][181](B):T[178]R[171]S:[139]T[179]0[167]T[178]S[171]R
2010 [139]R[177]S[167][153]"LOAD"R  "-"   S   "="
2020 [139]R[179]S[167][153]"LOAD"S  "-"   R   "="
2030 [153]"ON"[163]25):[133]C:[139]C[179][177]T[167]10000
2040 G[178]G[170]1:[141]6000
2050 [139]G[178]20[167]8000
2060 [137]2000
3000 R[178][181](A[173]10[170]3):S[178][181](B[173]5[170]3):T[178]R[172]S
3010 [153]"LOAD"R"X"   S  "=  "
3020 [153]"ON"[163]25):[133]C:[139]C[179][177]T[167][141]10000
3030 G[178]G[170]1:[141]6000
3035 [139]G[178]20[167]8000
3040 [137]3000
4000 R[178][181](A[173]8[170]1)[172][181](B[173]4[170]1):S[178][181](A[173]8[170]1):T[178][181](B[173]4[170]1)
4010 [153]"LOAD"R":"S"="
4020 [153]"ON"[163]25):[133] C:[139] C[179][177]T [167]10000
4030 G[178]G[170]1:[141]6000
4040 [139] G[178]20 [167] 8000
4050 [137]4000
6000 A[178][187](1)[172]K[170]1
6010 B[178][187](1)[172]L[170]1
6020 [142]
8000 [153]"LOADDEINE ZEIT WAR  ";
8005 [153]"";[202](TI$,3,1);" MIN ";[201](TI$,2);" SEK
8010 PRINT"DU HAST "G"[146]GUT"
8020 PRINT"UND     ";F"[146]FALSCH
8022 [153]"NOCH EIN DURCHGANG? (J/N)
8024 GET R$:IF R$=""THEN8024
8026 IF R$="J"THENGOTO9000
8028 IF R$<>"N"THEN8000
8029 PRINT"[147]UEBUNG MACHT DEN MEISTER!
8030 [128]
9000 [153]"LOADAENDERUNG?   (J/N)  "
9005 [161]C$:[139]C$[178]""[167]9005
9006 [139]C$[178]"J"[167][138]
9010 A$[178]"X":B$[178]"1":TI$[178]"000000":F[178]0:G[178]0:[137]50
10000 [153]"LOADDAS WAR FALSCH! NOCH EINMAL":F[178]F[170]1:[129]I[178]1[164]1000:[130]:
10010 [139]A$[178]"+"[167]1000
10020 [139]A$[178]"-"[167]2000
10030 [139]A$[178]"X"[167]3000
10040 [139]A$[178]"/"[167]4000